! name: b.ajt03*
! type: ArchiCAD Door File
! ***** 3D script *****

mat1 = c
mat2 = d
tsz = e

R=(0.055*0.055+(a/2-tsz-0.13)*(a/2-0.13-tsz))/0.11
R1=R-0.015
resol 120

addz -0.02

addz -0.005

prism_ 10, 0.08,
    -a/2+tsz+0.13, 0.31, 15,
     a/2-tsz-0.13, 0.31, 15,
     a/2-tsz-0.13, 0.81, 15,
    -a/2+tsz+0.13, 0.81, 15,
    -a/2+tsz+0.13, 0.31, -1,

    -a/2+tsz+0.145, 0.325, 15,
     a/2-tsz-0.145, 0.325, 15,
     a/2-tsz-0.145, 0.795, 15,
    -a/2+tsz+0.145, 0.795, 15,
    -a/2+tsz+0.145, 0.325, -1

del 1

addz 0.0125

prism_ 10, 0.045,
    -a/2+tsz+0.145, 0.325, 15,
     a/2-tsz-0.145, 0.325, 15,
     a/2-tsz-0.145, 0.795, 15,
    -a/2+tsz+0.145, 0.795, 15,
    -a/2+tsz+0.145, 0.325, -1,

    -a/2+tsz+0.18, 0.36, 15,
     a/2-tsz-0.18, 0.36, 15,
     a/2-tsz-0.18, 0.76, 15,
    -a/2+tsz+0.18, 0.76, 15,
    -a/2+tsz+0.18, 0.36, -1
 
del 1

prism_ 5, 0.07,
    -a/2+tsz+0.18, 0.36, 15,
     a/2-tsz-0.18, 0.36, 15,
     a/2-tsz-0.18, 0.76, 15,
    -a/2+tsz+0.18, 0.76, 15,
    -a/2+tsz+0.18, 0.36, -1


kx = -a/2+tsz+0.13
ky = 0.96

dx = (a-tsz*2-0.13*2-0.03) / 2
dy = (b-0.96-0.16-0.03) / 2



for ix = 1 to 2 step 1

    put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

    kx = kx+dx+0.03

next ix


kx = -a/2+tsz+0.13

for ix = 1 to 2 step 1

        put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

        put kx+0.015, ky+0.015, 15,
            kx+dx-0.015, ky+0.015, 15,
            kx+dx-0.015, ky+dy-0.015, 15,
            kx+0.015, ky+dy-0.015, 15,
            kx+0.015, ky+0.015, -1 


    kx = kx+dx+0.03

next ix

prism_ 22+10, 0.07,
    -a/2+tsz-0.03, 0.01, 15,
     a/2-tsz+0.03, 0.01, 15,
     a/2-tsz+0.03, b-tsz+0.03, 15,
    -a/2+tsz-0.03, b-tsz+0.03, 15,
    -a/2+tsz-0.03, 0.01, -1,

    -a/2+tsz+0.13, 0.31, 15,
     a/2-tsz-0.13, 0.31, 15,
     a/2-tsz-0.13, 0.81, 15,
    -a/2+tsz+0.13, 0.81, 15,
    -a/2+tsz+0.13, 0.31, -1,

    -a/2+tsz+0.13, 0.96+dy+0.03, 15,
    -0.015, 0.96+dy+0.03, 15,
    -0.015, b-tsz-0.13-R+(R*cos(ASN(0.015/R))), 79,
     0, b-0.13-tsz-R, 900,       
    -a/2+tsz+0.13, b-tsz-0.13-R+(R*cos(ASN((a/2-tsz-0.13)/R))), 3079,   
    -a/2+tsz+0.13, 0.96+dy+0.03, -1,

     a/2-tsz-0.13, 0.96+dy+0.03, 15,
     0.015, 0.96+dy+0.03, 15,
     0.015, b-tsz-0.13-R+(R*cos(ASN(0.015/R))), 79,
     0, b-0.13-tsz-R, 900,       
     a/2-tsz-0.13, b-tsz-0.13-R+(R*cos(ASN((a/2-tsz-0.13)/R))), 3079,   
     a/2-tsz-0.13, 0.96+dy+0.03, -1,
       

    get (30)

addz 0.07
addx a/2-tsz
addy 0.01
roty -90
rotz 90
 
prism_   5, a-2*tsz, 
      0, 0, 15,
      0.07, 0, 15,
      0.07, -0.005, 15,
      0.05, -0.025, 15,
      0, -0.025, 15

del 5
addz -0.005

prism_ 12, 0.08,
     a/2-tsz-0.13, 0.96+dy+0.03, 15,
     0.015, 0.96+dy+0.03, 15,
     0.015, b-tsz-0.13-R+(R*cos(ASN(0.015/R))), 79,
     0, b-0.13-tsz-R, 900,       
     a/2-tsz-0.13, b-tsz-0.13-R+(R*cos(ASN((a/2-tsz-0.13)/R))), 3079,   
     a/2-tsz-0.13, 0.96+dy+0.03, -1,

     a/2-tsz-0.145, 0.96+dy+0.045, 15,
     0.03, 0.96+dy+0.045, 15,
     0.03, b-tsz-0.13-R+(R1*cos(ASN(0.03/R1))), 79,
     0, b-0.13-tsz-R, 900,       
     a/2-tsz-0.145, b-tsz-0.13-R+(R1*cos(ASN((a/2-tsz-0.145)/R1))), 3079,   
     a/2-tsz-0.145, 0.96+dy+0.045, -1

prism_ 12, 0.08,
    -a/2+tsz+0.13, 0.96+dy+0.03, 15,
    -0.015, 0.96+dy+0.03, 15,
    -0.015, b-tsz-0.13-R+(R*cos(ASN(0.015/R))), 79,
     0, b-0.13-tsz-R, 900,       
    -a/2+tsz+0.13, b-tsz-0.13-R+(R*cos(ASN((a/2-tsz-0.13)/R))), 3079,   
    -a/2+tsz+0.13, 0.96+dy+0.03, -1,

    -a/2+tsz+0.145, 0.96+dy+0.045, 15,
    -0.03, 0.96+dy+0.045, 15,
    -0.03, b-tsz-0.13-R+(R1*cos(ASN(0.03/R1))), 79,
     0, b-0.13-tsz-R, 900,       
    -a/2+tsz+0.145, b-tsz-0.13-R+(R1*cos(ASN((a/2-tsz-0.145)/R1))), 3079,   
    -a/2+tsz+0.145, 0.96+dy+0.045, -1

addz 0.005+0.063/2
material mat1

prism_ 6, 0.007,
    -a/2+tsz+0.145, 0.96+dy+0.045, 15,
    -0.03, 0.96+dy+0.045, 15,
    -0.03, b-tsz-0.13-R+(R1*cos(ASN(0.03/R1))), 79,
     0, b-0.13-tsz-R, 900,       
    -a/2+tsz+0.145, b-tsz-0.13-R+(R1*cos(ASN((a/2-tsz-0.145)/R1))), 3079,   
    -a/2+tsz+0.145, 0.96+dy+0.045, -1

prism_ 6, 0.007,
     a/2-tsz-0.145, 0.96+dy+0.045, 15,
     0.03, 0.96+dy+0.045, 15,
     0.03, b-tsz-0.13-R+(R1*cos(ASN(0.03/R1))), 79,
     0, b-0.13-tsz-R, 900,       
     a/2-tsz-0.145, b-tsz-0.13-R+(R1*cos(ASN((a/2-tsz-0.145)/R1))), 3079,   
     a/2-tsz-0.145, 0.96+dy+0.045, -1

del 1
material m_

for ii = 1 to 2 step 1

    prism_ 10, 0.08,
        get (15),
        use (15)

    addz 0.063/2+0.005
    material mat1

    prism_ 5, 0.007,
        get (15)

    del 1

    material m_


next ii

del 1


addy 1.015
addx -a/2+tsz+0.13/2
addz 0.07

call "handle_3" mat2

addz -0.07
mulz -1

call "handle_4" mat2
